/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / orion.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 10 00 01 ff d2 00 00 | f0 5a 54 52 4f 4e 20 62 |........|.ZTRON b|
|000000c0| 00 00 00 3a 00 02 ff ee | 00 00 f0 64 20 30 2c 20 |...:....|...d 0, |
|000000d0| 5f 63 61 73 65 49 6e 73 | 65 6e 73 69 74 69 76 65 |_caseIns|ensitive|
|000000e0| 20 5f 73 74 72 52 65 73 | 6f 75 72 63 65 20 5f 6d | _strRes|ource _m|
|000000f0| 61 63 73 62 75 67 4c 61 | 62 65 6c 73 00 00 00 14 |acsbugLa|bels....|
|00000100| 00 03 ff c4 00 00 f0 02 | 20 f2 08 20 5f 66 61 6c |........| .. _fal|
|00000110| 73 65 00 00 00 0e 00 04 | ff ea 00 00 f0 19 20 41 |se......|...... A|
|00000120| 2d 5a 00 00 00 16 00 05 | ff f0 00 00 5f 6e 73 74 |-Z......|...._nst|
|00000130| 61 72 73 20 3d 20 31 36 | 30 30 00 00 00 20 00 06 |ars = 16|00... ..|
|00000140| ff e8 00 00 41 53 5a 26 | 3d 5f 6e 73 74 61 72 73 |....ASZ&|=_nstars|
|00000150| 2a 38 2b 5f 6e 73 74 61 | 72 73 2a 38 00 00 00 62 |*8+_nsta|rs*8...b|
|00000160| 00 07 ff de 00 00 f0 0a | 20 78 28 5f 6e 73 74 61 |........| x(_nsta|
|00000170| 72 73 29 2c 79 28 5f 6e | 73 74 61 72 73 29 2c 7a |rs),y(_n|stars),z|
|00000180| 28 5f 6e 73 74 61 72 73 | 29 2c 62 72 28 5f 6e 73 |(_nstars|),br(_ns|
|00000190| 74 61 72 73 29 2c 36 20 | 6e 61 6d 24 28 5f 6e 73 |tars),6 |nam$(_ns|
|000001a0| 74 61 72 73 29 2c 78 6c | 28 33 36 29 2c 79 6c 28 |tars),xl|(36),yl(|
|000001b0| 33 36 29 2c 63 69 28 33 | 36 29 2c 73 69 28 33 36 |36),ci(3|6),si(36|
|000001c0| 29 00 00 3a 00 08 ff 9c | 00 00 78 63 3d 33 32 30 |)..:....|..xc=320|
|000001d0| 3a 79 63 3d 32 34 30 3a | 78 70 6c 21 3d 30 3a 79 |:yc=240:|xpl!=0:y|
|000001e0| 70 6c 21 3d 30 3a 7a 70 | 6c 21 3d 30 3a 74 74 3d |pl!=0:zp|l!=0:tt=|
|000001f0| 31 30 30 30 30 3a 44 3d | 31 30 30 30 00 00 00 56 |10000:D=|1000...V|
|00000200| 00 09 ff c4 00 00 73 79 | 3d 30 3a 63 79 3d 74 74 |......sy|=0:cy=tt|
|00000210| 3a 73 72 3d 30 3a 63 72 | 3d 74 74 3a 73 79 63 72 |:sr=0:cr|=tt:sycr|
|00000220| 3d 30 3a 73 79 73 72 3d | 30 3a 63 79 63 72 3d 74 |=0:sysr=|0:cycr=t|
|00000230| 74 3a 63 79 73 72 3d 30 | 3a 72 72 26 3d 44 2f f4 |t:cysr=0|:rr&=D/.|
|00000240| 16 28 44 2a 44 2b 78 63 | 2a 78 63 2a 34 29 2a 74 |.(D*D+xc|*xc*4)*t|
|00000250| 74 2a 74 74 00 00 00 2a | 00 0a ff a8 00 00 f2 05 |t*tt...*|........|
|00000260| 20 31 2c 30 2c 5f 64 69 | 73 61 62 6c 65 2c 22 53 | 1,0,_di|sable,"S|
|00000270| 50 41 43 45 42 41 52 20 | 54 4f 20 45 58 49 54 22 |PACEBAR |TO EXIT"|
|00000280| 00 00 00 0c 00 0b ff d4 | 00 00 f0 1f 20 f0 66 00 |........|.... .f.|
|00000290| 00 46 00 0c ff f2 00 00 | f0 13 20 20 20 20 20 20 |.F......|..      |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 67 |        |       g|
|000002b0| 65 74 73 20 6a 75 6c 69 | 61 6e 20 64 61 74 65 20 |ets juli|an date |
|000002c0| 66 6f 72 20 74 6f 64 61 | 79 2c 20 20 20 65 70 6f |for toda|y,   epo|
|000002d0| 63 68 20 31 39 30 30 00 | 00 3a 00 0d ff b8 00 02 |ch 1900.|.:......|
|000002e0| f0 61 20 f2 02 20 6a 75 | 6c 69 61 6e 3a 44 24 3d |.a .. ju|lian:D$=|
|000002f0| f4 2e f0 5a 49 4e 50 55 | 54 20 44 24 3a 49 46 20 |...ZINPU|T D$:IF |
|00000300| 44 24 3d 22 22 20 54 48 | 45 4e 20 44 24 3d 44 41 |D$="" TH|EN D$=DA|
|00000310| 54 45 24 00 00 3c 00 0e | ff c4 02 02 79 72 3d f4 |TE$..<..|....yr=.|
|00000320| 10 28 f4 32 28 44 24 2c | 37 2c 34 29 29 3a 6d 6f |.(.2(D$,|7,4)):mo|
|00000330| 3d f4 10 28 f4 32 28 44 | 24 2c 31 2c 32 29 29 3a |=..(.2(D|$,1,2)):|
|00000340| 64 61 3d f4 10 28 f4 32 | 28 44 24 2c 34 2c 32 29 |da=..(.2|(D$,4,2)|
|00000350| 29 00 00 38 00 0f ff c2 | 02 02 6d 6f 3d 6d 6f 2d |)..8....|..mo=mo-|
|00000360| 32 3a 79 65 61 72 73 32 | 3d 79 72 3a f0 0f 20 6d |2:years2|=yr:.. m|
|00000370| 6f 3c 31 20 f6 05 20 6d | 6f 3d 6d 6f 2b 31 32 3a |o<1 .. m|o=mo+12:|
|00000380| 79 65 61 72 73 32 3d 79 | 72 2d 31 00 00 4a 00 10 |years2=y|r-1..J..|
|00000390| ff c6 02 02 61 66 61 63 | 3d f4 13 28 79 65 61 72 |....afac|=..(year|
|000003a0| 73 32 2f 31 30 30 29 3a | 62 66 61 63 3d 79 65 61 |s2/100):|bfac=yea|
|000003b0| 72 73 32 20 f6 0a 20 31 | 30 30 3a 63 66 61 63 3d |rs2 .. 1|00:cfac=|
|000003c0| f4 13 28 28 32 36 2a 6d | 6f 2d 32 29 2f 31 30 29 |..((26*m|o-2)/10)|
|000003d0| 2b 32 38 2a 6d 6f 00 00 | 00 44 00 11 ff b4 02 02 |+28*mo..|.D......|
|000003e0| 44 61 79 73 3d f4 13 28 | 62 66 61 63 2f 34 29 2b |Days=..(|bfac/4)+|
|000003f0| f4 13 28 61 66 61 63 2f | 34 29 3a 75 26 3d 28 63 |..(afac/|4):u&=(c|
|00000400| 66 61 63 2b 44 61 79 73 | 2b 64 61 2b 61 66 61 63 |fac+Days|+da+afac|
|00000410| 2a 35 2b 62 66 61 63 2a | 33 36 35 29 00 00 00 12 |*5+bfac*|365)....|
|00000420| 00 12 ff ba 00 00 f0 1f | 20 f2 02 20 3d 20 75 26 |........| .. = u&|
|00000430| 00 00 00 54 00 13 ff ec | 00 00 f0 13 20 20 20 20 |...T....|....    |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000450| 20 20 20 20 20 20 20 63 | 61 6c 63 75 6c 61 74 65 |       c|alculate|
|00000460| 73 20 6d 6f 6f 6e 73 20 | 70 6f 73 69 74 69 6f 6e |s moons |position|
|00000470| 20 20 20 20 20 28 6d 61 | 79 20 62 65 20 69 6e 63 |     (ma|y be inc|
|00000480| 6f 72 72 65 63 74 29 00 | 00 2e 00 14 ff aa 00 02 |orrect).|........|
|00000490| f0 61 20 f2 02 20 6d 6f | 6f 6e 28 44 21 29 20 20 |.a .. mo|on(D!)  |
|000004a0| 3a 63 21 3d f4 13 28 44 | 21 2f 32 39 2e 35 33 31 |:c!=..(D|!/29.531|
|000004b0| 35 29 2b 31 2e 35 00 00 | 00 44 00 15 ff d0 02 04 |5)+1.5..|.D......|
|000004c0| f0 33 3a 72 61 64 21 3d | 2e 30 30 31 37 34 35 33 |.3:rad!=|.0017453|
|000004d0| 32 39 23 3a 74 21 3d 63 | 21 2f 31 32 33 36 2e 38 |29#:t!=c|!/1236.8|
|000004e0| 35 3a f0 0f 20 74 21 3e | 30 20 f6 05 20 20 74 32 |5:.. t!>|0 ..  t2|
|000004f0| 21 3d f4 16 28 f4 14 28 | 74 21 29 29 00 00 00 48 |!=..(..(|t!))...H|
|00000500| 00 16 ff ba 04 04 73 61 | 21 3d 33 35 39 2e 32 32 |......sa|!=359.22|
|00000510| 34 32 2b 32 39 2e 31 30 | 35 33 35 36 23 2a 63 21 |42+29.10|5356#*c!|
|00000520| 3a 61 6d 21 3d 33 30 36 | 2e 30 32 35 33 2b 33 38 |:am!=306|.0253+38|
|00000530| 35 2e 38 31 36 39 31 38 | 23 2a 63 21 2b 2e 30 31 |5.816918|#*c!+.01|
|00000540| 30 37 33 2a 74 32 21 00 | 00 46 00 17 ff b6 04 04 |073*t2!.|.F......|
|00000550| 6a 64 21 3d 32 38 2a 63 | 21 3a 78 74 21 3d 2e 37 |jd!=28*c|!:xt!=.7|
|00000560| 39 35 33 33 2b 31 2e 35 | 33 30 35 38 38 36 38 23 |9533+1.5|3058868#|
|00000570| 2a 63 21 2b 28 2e 30 30 | 30 31 31 37 38 2d 31 2e |*c!+(.00|01178-1.|
|00000580| 35 35 45 2d 30 37 2a 74 | 21 29 2a 74 32 21 00 00 |55E-07*t|!)*t2!..|
|00000590| 00 4a 00 18 ff b8 04 04 | 78 74 21 3d 78 74 21 2b |.J......|xt!=xt!+|
|000005a0| 28 2e 31 37 33 34 2d 2e | 30 30 30 33 39 33 2a 74 |(.1734-.|000393*t|
|000005b0| 21 29 2a f4 1b 28 72 61 | 64 21 2a 73 61 21 29 2d |!)*..(ra|d!*sa!)-|
|000005c0| 2e 34 30 36 38 2a f4 1b | 28 72 61 64 21 2a 61 6d |.4068*..|(rad!*am|
|000005d0| 21 29 3a 63 21 3d 63 21 | 2d 31 00 00 00 1a 00 19 |!):c!=c!|-1......|
|000005e0| ff b4 02 02 f0 34 20 6a | 64 21 2b 78 74 21 2d 44 |.....4 j|d!+xt!-D|
|000005f0| 21 20 3c 3d 33 30 20 00 | 00 20 00 1a ff e4 00 00 |! <=30 .|. ......|
|00000600| 65 21 3d 6a 64 21 2b 78 | 74 21 2d 44 21 3a f0 1f |e!=jd!+x|t!-D!:..|
|00000610| 20 f2 02 20 3d 20 65 21 | 00 00 00 4a 00 1b ff de | .. = e!|...J....|
|00000620| 00 00 f0 13 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00000630| 20 20 20 20 74 72 61 6e | 73 66 6f 72 6d 20 20 20 |    tran|sform   |
|00000640| 20 20 20 78 2c 79 2c 7a | 20 74 6f 20 20 63 79 6c |   x,y,z| to  cyl|
|00000650| 69 6e 64 72 69 63 61 6c | 20 20 63 6f 6f 72 64 69 |indrical|  coordi|
|00000660| 6e 61 74 65 73 00 00 42 | 00 1c ff b4 00 02 f0 61 |nates..B|.......a|
|00000670| 20 f2 02 20 63 79 6c 28 | 78 21 2c 79 21 2c 7a 21 | .. cyl(|x!,y!,z!|
|00000680| 2c 6e 63 29 3a 63 74 21 | 3d 2e 39 31 37 34 30 37 |,nc):ct!|=.917407|
|00000690| 38 3a 73 74 21 3d 2e 33 | 39 37 39 34 38 36 3a 74 |8:st!=.3|979486:t|
|000006a0| 74 21 3d 31 30 30 30 30 | 00 00 00 4e 00 1d ff bc |t!=10000|...N....|
|000006b0| 02 02 79 70 21 3d 63 74 | 21 2a 79 21 2d 73 74 21 |..yp!=ct|!*y!-st!|
|000006c0| 2a 7a 21 3a 7a 21 3d 73 | 74 21 2a 79 21 2b 63 74 |*z!:z!=s|t!*y!+ct|
|000006d0| 21 2a 7a 21 3a 79 21 3d | 79 70 21 3a 7a 7a 21 3d |!*z!:y!=|yp!:zz!=|
|000006e0| f4 16 28 78 21 2a 78 21 | 2b 79 21 2a 79 21 2b 7a |..(x!*x!|+y!*y!+z|
|000006f0| 21 2a 7a 21 29 2f 74 74 | 21 00 00 2e 00 1e ff b0 |!*z!)/tt|!.......|
|00000700| 02 02 78 28 6e 63 29 3d | 78 21 2f 7a 7a 21 3a 79 |..x(nc)=|x!/zz!:y|
|00000710| 28 6e 63 29 3d 79 21 2f | 7a 7a 21 3a 7a 28 6e 63 |(nc)=y!/|zz!:z(nc|
|00000720| 29 3d 7a 21 2f 7a 7a 21 | 00 00 00 0c 00 1f ff d0 |)=z!/zz!|........|
|00000730| 00 00 f0 1f 20 f2 02 00 | 00 56 00 20 ff f2 00 00 |.... ...|.V. ....|
|00000740| f0 13 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000750| 20 20 20 20 20 20 20 20 | 73 6f 6c 76 65 20 65 71 |        |solve eq|
|00000760| 75 61 74 69 6f 6e 20 6f | 66 20 74 69 6d 65 20 66 |uation o|f time f|
|00000770| 6f 72 20 65 6c 6c 69 70 | 74 69 63 61 6c 20 6f 72 |or ellip|tical or|
|00000780| 62 69 74 20 6f 66 20 61 | 20 70 6c 61 6e 65 74 00 |bit of a| planet.|
|00000790| 00 62 00 21 ff a8 00 00 | f0 13 20 61 2d 73 65 6d |.b.!....|.. a-sem|
|000007a0| 69 6d 61 6a 6f 72 20 61 | 78 69 73 20 65 2d 65 63 |imajor a|xis e-ec|
|000007b0| 63 65 6e 74 72 69 63 69 | 74 79 20 69 2d 69 6e 63 |centrici|ty i-inc|
|000007c0| 6c 69 6e 61 74 69 6f 6e | 20 6f 2d 61 6e 67 6c 65 |lination| o-angle|
|000007d0| 20 74 6f 20 70 65 72 69 | 68 65 6c 69 6f 6e 20 77 | to peri|helion w|
|000007e0| 2d 74 69 6d 65 20 74 6f | 20 70 65 72 69 68 65 6c |-time to| perihel|
|000007f0| 69 6f 6e 00 00 30 00 22 | ff 9c 00 02 f0 61 20 f2 |ion..0."|.....a .|
|00000800| 02 20 70 6c 61 6e 65 74 | 24 28 44 26 29 3a 79 72 |. planet|$(D&):yr|
|00000810| 21 3d 28 44 26 2d 33 34 | 32 35 31 26 29 2f 33 36 |!=(D&-34|251&)/36|
|00000820| 35 32 37 2e 30 00 00 32 | 00 23 ff ce 02 02 f0 0b |527.0..2|.#......|
|00000830| 20 4e 61 6d 65 73 24 2c | 61 21 2c 65 21 2c 49 21 | Names$,|a!,e!,I!|
|00000840| 2c 6f 31 21 2c 6f 64 21 | 2c 77 31 21 2c 77 64 21 |,o1!,od!|,w1!,wd!|
|00000850| 2c 6d 31 21 2c 6d 64 21 | 00 00 00 4e 00 24 ff cc |,m1!,md!|...N.$..|
|00000860| 02 02 62 21 3d f4 16 28 | 31 2d 65 21 2a 65 21 29 |..b!=..(|1-e!*e!)|
|00000870| 2a 61 21 3a 6f 21 3d 6f | 31 21 2b 6f 64 21 2a 79 |*a!:o!=o|1!+od!*y|
|00000880| 72 21 3a 77 21 3d 77 31 | 21 2b 77 64 21 2a 79 72 |r!:w!=w1|!+wd!*yr|
|00000890| 21 2d 6f 21 3a 6d 21 3d | 6d 31 21 2b 6d 64 21 2a |!-o!:m!=|m1!+md!*|
|000008a0| 79 72 21 2d 77 21 2d 6f | 21 00 00 5e 00 25 ff b0 |yr!-w!-o|!..^.%..|
|000008b0| 00 02 65 65 21 3d 6d 21 | 2b 65 21 2a f4 1b 28 6d |..ee!=m!|+e!*..(m|
|000008c0| 21 29 3a f0 01 20 69 74 | 3d 31 20 f6 04 20 34 3a |!):.. it|=1 .. 4:|
|000008d0| 65 65 21 3d 6d 21 2b 65 | 21 2a f4 1b 28 65 65 21 |ee!=m!+e|!*..(ee!|
|000008e0| 29 3a f0 07 20 69 74 3a | 70 21 3d 28 f4 1a 28 65 |):.. it:|p!=(..(e|
|000008f0| 65 21 29 2d 65 21 29 2a | 61 21 3a 71 21 3d f4 1b |e!)-e!)*|a!:q!=..|
|00000900| 28 65 65 21 29 2a 62 21 | 00 00 00 60 00 26 ff a0 |(ee!)*b!|...`.&..|
|00000910| 02 02 63 6f 21 3d f4 1a | 28 6f 21 29 3a 73 6f 21 |..co!=..|(o!):so!|
|00000920| 3d f4 1b 28 6f 21 29 3a | 63 69 21 3d f4 1a 28 49 |=..(o!):|ci!=..(I|
|00000930| 21 29 3a 73 69 21 3d f4 | 1b 28 49 21 29 3a 63 77 |!):si!=.|.(I!):cw|
|00000940| 21 3d f4 1a 28 77 21 29 | 3a 73 77 21 3d f4 1b 28 |!=..(w!)|:sw!=..(|
|00000950| 77 21 29 3a 61 7a 21 3d | 73 77 21 2a 73 69 21 3a |w!):az!=|sw!*si!:|
|00000960| 62 7a 21 3d 63 77 21 2a | 73 69 21 00 00 68 00 27 |bz!=cw!*|si!..h.'|
|00000970| ff 9e 02 02 61 78 21 3d | 63 6f 21 2a 63 77 21 2d |....ax!=|co!*cw!-|
|00000980| 73 6f 21 2a 73 77 21 2a | 63 69 21 3a 62 78 21 3d |so!*sw!*|ci!:bx!=|
|00000990| 2d 73 77 21 2a 63 6f 21 | 2d 73 6f 21 2a 63 77 21 |-sw!*co!|-so!*cw!|
|000009a0| 2a 63 69 21 3a 61 79 21 | 3d 63 77 21 2a 73 6f 21 |*ci!:ay!|=cw!*so!|
|000009b0| 2b 63 6f 21 2a 73 77 21 | 2a 63 69 21 3a 62 79 21 |+co!*sw!|*ci!:by!|
|000009c0| 3d 63 6f 21 2a 63 77 21 | 2a 63 69 21 2d 73 77 21 |=co!*cw!|*ci!-sw!|
|000009d0| 2a 73 6f 21 00 00 00 40 | 00 28 ff 96 02 02 78 70 |*so!...@|.(....xp|
|000009e0| 6c 21 3d 70 21 2a 61 78 | 21 2b 71 21 2a 62 78 21 |l!=p!*ax|!+q!*bx!|
|000009f0| 3a 79 70 6c 21 3d 70 21 | 2a 61 79 21 2b 71 21 2a |:ypl!=p!|*ay!+q!*|
|00000a00| 62 79 21 3a 7a 70 6c 21 | 3d 70 21 2a 61 7a 21 2b |by!:zpl!|=p!*az!+|
|00000a10| 71 21 2a 62 7a 21 00 00 | 00 16 00 29 ff be 00 00 |q!*bz!..|...)....|
|00000a20| f0 1f 20 f2 02 20 3d 20 | 6e 61 6d 65 73 24 00 00 |.. .. = |names$..|
|00000a30| 00 66 00 2a ff e8 00 00 | f0 13 20 20 20 20 20 20 |.f.*....|..      |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a50| 20 20 20 20 20 67 65 74 | 20 78 2c 79 2c 7a 20 6f |     get| x,y,z o|
|00000a60| 66 20 61 6c 6c 20 70 6c | 61 6e 65 74 73 20 20 28 |f all pl|anets  (|
|00000a70| 73 6f 6d 65 74 68 69 6e | 67 20 77 72 6f 6e 67 20 |somethin|g wrong |
|00000a80| 77 69 74 68 20 6d 61 72 | 73 2c 6d 61 79 62 65 20 |with mar|s,maybe |
|00000a90| 6f 74 68 65 72 73 29 00 | 00 24 00 2b ff 98 00 02 |others).|.$.+....|
|00000aa0| f0 61 20 f2 02 20 70 6c | 61 6e 65 74 73 3a 70 69 |.a .. pl|anets:pi|
|00000ab0| 21 3d 33 2e 31 34 31 35 | 39 32 37 36 23 00 00 2c |!=3.1415|9276#..,|
|00000ac0| 00 2c ff da 02 02 44 26 | 3d f2 02 20 6a 75 6c 69 |.,....D&|=.. juli|
|00000ad0| 61 6e 3a 7a 21 3d 44 26 | 2d 37 30 3a 44 21 3d f2 |an:z!=D&|-70:D!=.|
|00000ae0| 02 20 6d 6f 6f 6e 28 7a | 21 29 00 00 00 40 00 2d |. moon(z|!)...@.-|
|00000af0| ff d2 02 02 6e 61 6d 24 | 28 30 29 3d f2 02 20 70 |....nam$|(0)=.. p|
|00000b00| 6c 61 6e 65 74 24 28 44 | 26 29 3a 62 72 28 30 29 |lanet$(D|&):br(0)|
|00000b10| 3d 38 3a 78 30 21 3d 78 | 70 6c 21 3a 79 30 21 3d |=8:x0!=x|pl!:y0!=|
|00000b20| 79 70 6c 21 3a 7a 30 21 | 3d 7a 70 6c 21 00 00 4e |ypl!:z0!|=zpl!..N|
|00000b30| 00 2e ff be 02 02 f2 02 | 20 63 79 6c 28 2d 78 30 |........| cyl(-x0|
|00000b40| 21 2c 2d 79 30 21 2c 2d | 7a 30 21 2c 30 29 3a 6d |!,-y0!,-|z0!,0):m|
|00000b50| 61 21 3d 28 44 21 2f 32 | 39 2e 35 33 31 35 29 2a |a!=(D!/2|9.5315)*|
|00000b60| 70 69 21 2a 32 3a 63 6d | 21 3d f4 1a 28 6d 61 21 |pi!*2:cm|!=..(ma!|
|00000b70| 29 3a 73 6d 21 3d f4 1b | 28 6d 61 21 29 00 00 4c |):sm!=..|(ma!)..L|
|00000b80| 00 2f ff b0 02 02 f2 02 | 20 63 79 6c 28 78 30 21 |./......| cyl(x0!|
|00000b90| 2a 63 6d 21 2b 79 30 21 | 2a 73 6d 21 2c 2d 78 30 |*cm!+y0!|*sm!,-x0|
|00000ba0| 21 2a 73 6d 21 2b 79 30 | 21 2a 63 6d 21 2c 30 21 |!*sm!+y0|!*cm!,0!|
|00000bb0| 2c 31 29 3a 62 72 28 31 | 29 3d 38 3a 6e 61 6d 24 |,1):br(1|)=8:nam$|
|00000bc0| 28 31 29 3d 22 4d 4f 4f | 4e 22 00 00 00 42 00 30 |(1)="MOO|N"...B.0|
|00000bd0| ff b2 02 04 f0 01 20 4c | 3d 32 20 f6 04 20 39 3a |...... L|=2 .. 9:|
|00000be0| 6e 61 6d 24 28 4c 29 3d | f2 02 20 70 6c 61 6e 65 |nam$(L)=|.. plane|
|00000bf0| 74 24 28 44 26 29 3a 78 | 21 3d 78 70 6c 21 3a 79 |t$(D&):x|!=xpl!:y|
|00000c00| 21 3d 79 70 6c 21 3a 7a | 21 3d 7a 70 6c 21 00 00 |!=ypl!:z|!=zpl!..|
|00000c10| 00 32 00 31 ff bc 02 02 | f2 02 20 63 79 6c 28 78 |.2.1....|.. cyl(x|
|00000c20| 21 2d 78 30 21 2c 79 21 | 2d 79 30 21 2c 7a 21 2d |!-x0!,y!|-y0!,z!-|
|00000c30| 7a 30 21 2c 4c 29 3a 62 | 72 28 4c 29 3d 35 3a f0 |z0!,L):b|r(L)=5:.|
|00000c40| 07 20 4c 00 00 0c 00 32 | ff cc 00 00 f0 1f 20 f2 |. L....2|...... .|
|00000c50| 02 00 00 5c 00 33 ff f2 | 00 00 f0 13 20 20 20 20 |...\.3..|....    |
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 67 65 74 |        |     get|
|00000c80| 20 63 65 6c 65 73 74 69 | 61 6c 20 6c 61 74 69 74 | celesti|al latit|
|00000c90| 75 64 65 2c 6c 6f 6e 67 | 69 74 75 64 65 20 6f 66 |ude,long|itude of|
|00000ca0| 20 70 6f 69 6e 74 20 63 | 6c 69 63 6b 65 64 00 00 | point c|licked..|
|00000cb0| 00 18 00 34 ff a2 00 02 | f0 61 20 f2 02 20 69 6e |...4....|.a .. in|
|00000cc0| 76 65 72 74 28 78 2c 79 | 29 00 00 2a 00 35 ff e6 |vert(x,y|)..*.5..|
|00000cd0| 02 02 7a 77 26 3d f4 16 | 28 44 2a 44 2b 78 2a 78 |..zw&=..|(D*D+x*x|
|00000ce0| 29 3a 7a 7a 26 3d f4 16 | 28 7a 77 26 2a 7a 77 26 |):zz&=..|(zw&*zw&|
|00000cf0| 2b 79 2a 79 29 00 00 36 | 00 36 ff d4 02 02 73 79 |+y*y)..6|.6....sy|
|00000d00| 3d 28 73 79 2a 7a 77 26 | 2b 63 79 2a 79 29 2f 7a |=(sy*zw&|+cy*y)/z|
|00000d10| 7a 26 3a 63 79 3d f4 16 | 28 74 74 2a 74 74 2d 73 |z&:cy=..|(tt*tt-s|
|00000d20| 79 2a 73 79 29 3a 73 73 | 72 3d 73 72 00 00 00 2e |y*sy):ss|r=sr....|
|00000d30| 00 37 ff c8 02 02 73 72 | 3d 28 73 72 2a 44 2b 63 |.7....sr|=(sr*D+c|
|00000d40| 72 2a 78 29 2f 7a 77 26 | 3a 63 72 3d 28 63 72 2a |r*x)/zw&|:cr=(cr*|
|00000d50| 44 2d 73 73 72 2a 78 29 | 2f 7a 77 26 00 00 00 32 |D-ssr*x)|/zw&...2|
|00000d60| 00 38 ff d0 02 02 73 63 | 3d f4 16 28 73 72 2a 73 |.8....sc|=..(sr*s|
|00000d70| 72 2b 63 72 2a 63 72 29 | 3a 73 72 3d 73 72 2a 74 |r+cr*cr)|:sr=sr*t|
|00000d80| 74 2f 73 63 3a 63 72 3d | 63 72 2a 74 74 2f 73 63 |t/sc:cr=|cr*tt/sc|
|00000d90| 00 00 00 52 00 39 ff cc | 02 02 73 79 63 72 3d 73 |...R.9..|..sycr=s|
|00000da0| 79 2a 63 72 2f 74 74 3a | 73 79 73 72 3d 73 79 2a |y*cr/tt:|sysr=sy*|
|00000db0| 73 72 2f 74 74 3a 63 79 | 63 72 3d 63 79 2a 63 72 |sr/tt:cy|cr=cy*cr|
|00000dc0| 2f 74 74 3a 63 79 73 72 | 3d 63 79 2a 73 72 2f 74 |/tt:cysr|=cy*sr/t|
|00000dd0| 74 f0 5a 50 52 49 4e 54 | 20 40 28 31 2c 31 29 20 |t.ZPRINT| @(1,1) |
|00000de0| 73 79 3b 73 72 00 00 30 | 00 3a ff ac 02 02 f0 02 |sy;sr..0|.:......|
|00000df0| 20 5f 7a 77 68 69 74 65 | 3a f0 2c 20 f8 d0 28 78 | _zwhite|:., ..(x|
|00000e00| 63 2d 35 2c 79 63 29 3a | f0 2c 20 f8 e6 28 78 63 |c-5,yc):|., ..(xc|
|00000e10| 2b 35 2c 79 63 29 00 00 | 00 24 00 3b ff ce 02 02 |+5,yc)..|.$.;....|
|00000e20| f0 2c 20 f8 d0 28 78 63 | 2c 79 63 2d 35 29 3a f0 |., ..(xc|,yc-5):.|
|00000e30| 2c 20 f8 e6 28 78 63 2c | 79 63 2b 35 29 00 00 0c |, ..(xc,|yc+5)...|
|00000e40| 00 3c ff da 00 00 f0 1f | 20 f2 02 00 00 46 00 3d |.<......| ....F.=|
|00000e50| ff f2 00 00 f0 13 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|00000e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e70| 20 20 64 72 61 77 20 67 | 72 69 64 20 77 68 65 6e |  draw g|rid when|
|00000e80| 20 75 73 65 72 20 70 72 | 65 73 73 65 73 20 61 20 | user pr|esses a |
|00000e90| 6b 65 79 00 00 18 00 3e | ff b8 00 02 f0 61 20 f2 |key....>|.....a .|
|00000ea0| 02 20 67 72 69 64 28 75 | 26 2c 76 26 29 00 00 42 |. grid(u|&,v&)..B|
|00000eb0| 00 3f ff e6 02 04 f0 01 | 20 4c 3d 2d 39 30 20 f6 |.?......| L=-90 .|
|00000ec0| 04 20 39 30 20 f6 06 20 | 31 30 3a 4b 3d 28 28 4c |. 90 .. |10:K=((L|
|00000ed0| 2b 33 36 30 29 20 f6 0a | 20 33 36 30 29 2f 31 30 |+360) ..| 360)/10|
|00000ee0| 3a 7a 63 3d 63 69 28 4b | 29 3a 7a 3d 73 69 28 4b |:zc=ci(K|):z=si(K|
|00000ef0| 29 00 00 3c 00 40 ff bc | 04 04 f0 0f 20 73 69 28 |)..<.@..|.... si(|
|00000f00| 4b 2b 31 29 3c 76 26 20 | f6 08 20 73 69 28 4b 2d |K+1)<v& |.. si(K-|
|00000f10| 31 29 3e 75 26 20 f6 07 | 20 73 69 28 4b 29 3c 3e |1)>u& ..| si(K)<>|
|00000f20| 30 20 f6 05 20 f0 0d 20 | 22 4e 58 54 4c 22 00 00 |0 .. .. |"NXTL"..|
|00000f30| 00 30 00 41 ff c2 04 06 | f0 01 20 4a 3d 30 20 f6 |.0.A....|.. J=0 .|
|00000f40| 04 20 33 36 3a 78 3d 7a | 63 2a 63 69 28 6a 29 2f |. 36:x=z|c*ci(j)/|
|00000f50| 74 74 3a 79 3d 7a 63 2a | 73 69 28 6a 29 2f 74 74 |tt:y=zc*|si(j)/tt|
|00000f60| 00 00 00 22 00 42 ff ce | 06 06 64 79 70 26 3d 28 |...".B..|..dyp&=(|
|00000f70| 79 2a 63 79 63 72 2d 78 | 2a 63 79 73 72 2b 7a 2a |y*cycr-x|*cysr+z*|
|00000f80| 73 79 29 2f 44 00 00 38 | 00 43 ff dc 06 06 79 66 |sy)/D..8|.C....yf|
|00000f90| 3d 28 73 79 73 72 2a 78 | 2d 79 2a 73 79 63 72 2b |=(sysr*x|-y*sycr+|
|00000fa0| 7a 2a 63 79 29 2f 64 79 | 70 26 3a 78 66 3d 28 78 |z*cy)/dy|p&:xf=(x|
|00000fb0| 2a 63 72 2b 79 2a 73 72 | 29 2f 64 79 70 26 00 00 |*cr+y*sr|)/dyp&..|
|00000fc0| 00 36 00 44 ff c6 06 08 | f0 00 20 f0 0f 20 79 2a |.6.D....|.. .. y*|
|00000fd0| 63 79 63 72 2d 78 2a 63 | 79 73 72 2b 7a 2a 73 79 |cycr-x*c|ysr+z*sy|
|00000fe0| 2d 72 72 26 3e 30 20 f6 | 07 20 6a 3e 30 20 f6 07 |-rr&>0 .|. j>0 ..|
|00000ff0| 20 4c 3e 2d 39 30 00 00 | 00 24 00 45 ff c8 08 0a | L>-90..|.$.E....|
|00001000| f0 00 20 f0 0f 20 73 69 | 28 4b 29 3e 3d 76 26 20 |.. .. si|(K)>=v& |
|00001010| f6 07 20 20 73 69 28 4b | 29 3c 3d 75 26 00 00 1c |..  si(K|)<=u&...|
|00001020| 00 46 ff da 0a 0a 78 78 | 3d 78 6c 28 6a 2d 31 29 |.F....xx|=xl(j-1)|
|00001030| 3a 79 79 3d 79 6c 28 6a | 2d 31 29 00 00 1a 00 47 |:yy=yl(j|-1)....G|
|00001040| ff e2 0a 0a f0 2c 20 f8 | d0 28 78 78 2b 78 63 2c |....., .|.(xx+xc,|
|00001050| 79 63 2d 79 79 29 00 00 | 00 1a 00 48 ff e4 0a 0a |yc-yy)..|...H....|
|00001060| f0 2c 20 f8 e6 28 78 66 | 2b 78 63 2c 79 63 2d 79 |., ..(xf|+xc,yc-y|
|00001070| 66 29 00 00 00 18 00 49 | ff e4 0a 0a 78 78 3d 78 |f).....I|....xx=x|
|00001080| 6c 28 6a 29 3a 79 79 3d | 79 6c 28 6a 29 00 00 1a |l(j):yy=|yl(j)...|
|00001090| 00 4a ff e6 0a 0a f0 2c | 20 f8 e6 28 78 78 2b 78 |.J.....,| ..(xx+x|
|000010a0| 63 2c 79 63 2d 79 79 29 | 00 00 00 1c 00 4b ff e4 |c,yc-yy)|.....K..|
|000010b0| 0a 0a 73 24 3d f4 2a 28 | 6a 2a 31 30 29 2b 22 20 |..s$=.*(|j*10)+" |
|000010c0| 22 2b f4 2a 28 4c 29 00 | 00 24 00 4c ff e2 0a 0a |"+.*(L).|.$.L....|
|000010d0| f0 2c 20 f8 d0 28 78 66 | 2b 78 63 2c 79 63 2d 79 |., ..(xf|+xc,yc-y|
|000010e0| 66 29 3a f0 2c 20 f9 73 | 28 53 24 29 00 00 00 0c |f):., .s|(S$)....|
|000010f0| 00 4d ff da 08 08 f0 1f | 20 f0 0f 00 00 0c 00 4e |.M......| ......N|
|00001100| ff f2 06 06 f0 1f 20 f0 | 0f 00 00 18 00 4f ff f2 |...... .|.....O..|
|00001110| 06 06 78 6c 28 6a 29 3d | 78 66 3a 79 6c 28 6a 29 |..xl(j)=|xf:yl(j)|
|00001120| 3d 79 66 00 00 0c 00 50 | ff e6 04 04 f0 07 20 4a |=yf....P|...... J|
|00001130| 00 00 00 12 00 51 ff f2 | 02 02 22 4e 58 54 4c 22 |.....Q..|.."NXTL"|
|00001140| f0 07 20 4c 00 00 00 0c | 00 52 ff ec 00 00 f0 1f |.. L....|.R......|
|00001150| 20 f2 02 00 00 56 00 53 | ff f2 00 00 f0 13 20 20 | ....V.S|......  |
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001180| 73 65 61 72 63 68 20 66 | 6f 72 20 66 69 72 73 74 |search f|or first|
|00001190| 20 6f 62 6a 65 63 74 20 | 61 70 70 65 61 72 69 6e | object |appearin|
|000011a0| 67 20 6f 6e 20 73 63 72 | 65 65 6e 00 00 36 00 54 |g on scr|een..6.T|
|000011b0| ff a8 00 02 f0 61 20 f2 | 02 20 42 69 6e 53 72 63 |.....a .|. BinSrc|
|000011c0| 28 69 30 2c 69 6e 2c 75 | 26 29 20 20 20 20 20 20 |(i0,in,u|&)      |
|000011d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011e0| 20 20 00 00 00 40 00 55 | ff c8 02 04 f0 33 3a f0 |  ...@.U|.....3:.|
|000011f0| 0f 20 7a 28 28 69 30 2b | 69 6e 29 2f 32 29 2a 74 |. z((i0+|in)/2)*t|
|00001200| 74 3c 75 26 20 f6 05 20 | 69 6e 3d 28 69 30 2b 69 |t<u& .. |in=(i0+i|
|00001210| 6e 29 2f 32 20 3a f0 15 | 20 69 30 3d 28 69 30 2b |n)/2 :..| i0=(i0+|
|00001220| 69 6e 29 2f 32 00 00 12 | 00 56 ff be 02 02 f0 34 |in)/2...|.V.....4|
|00001230| 20 69 30 3d 69 6e 2d 31 | 00 00 00 12 00 57 ff ec | i0=in-1|.....W..|
|00001240| 00 00 f0 1f 20 f2 02 20 | 3d 20 69 30 00 00 00 08 |.... .. |= i0....|
|00001250| 00 58 ff ec 00 00 00 00 | 00 38 00 59 ff f6 00 00 |.X......|.8.Y....|
|00001260| f0 13 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001280| 20 20 20 20 6d 61 69 6e | 20 70 72 6f 67 72 61 6d |    main| program|
|00001290| 00 00 00 4e 00 5a ff c6 | 00 00 f0 13 20 20 20 20 |...N.Z..|....    |
|000012a0| 20 20 20 20 20 20 20 20 | 20 20 20 69 6e 69 74 69 |        |   initi|
|000012b0| 61 6c 69 7a 61 74 69 6f | 6e 20 2d 20 72 65 61 64 |alizatio|n - read|
|000012c0| 20 69 6e 20 64 61 74 61 | 2c 74 61 62 6c 65 20 73 | in data|,table s|
|000012d0| 69 6e 65 73 2c 6f 70 65 | 6e 20 77 69 6e 64 6f 77 |ines,ope|n window|
|000012e0| 00 00 00 46 00 5b ff b0 | 00 00 f0 13 20 20 20 20 |...F.[..|....    |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |        |       c|
|00001300| 61 6c 63 75 6c 61 74 65 | 20 70 6c 61 6e 65 74 73 |alculate| planets|
|00001310| 20 73 68 6f 77 20 4f 52 | 49 4f 4e 20 63 6f 6e 73 | show OR|ION cons|
|00001320| 74 65 6c 6c 61 74 69 6f | 6e 00 00 56 00 5c ff b8 |tellatio|n..V.\..|
|00001330| 00 00 f0 0a 20 63 28 34 | 29 2c 72 65 63 74 2e 38 |.... c(4|),rect.8|
|00001340| 2c 77 50 26 3a 67 7a 26 | 20 3d 20 78 63 2a 32 2a |,wP&:gz&| = xc*2*|
|00001350| 79 63 2a 32 3a 63 74 3d | 5f 74 72 75 65 3a 6e 3d |yc*2:ct=|_true:n=|
|00001360| 31 35 38 31 3a 70 69 21 | 3d 33 2e 31 34 31 35 39 |1581:pi!|=3.14159|
|00001370| 32 37 36 23 3a 64 72 21 | 3d 70 69 21 2f 31 38 30 |276#:dr!|=pi!/180|
|00001380| 00 00 00 4e 00 5d ff a8 | fe 00 f0 01 20 49 3d 30 |...N.]..|.... I=0|
|00001390| 20 f6 04 20 33 36 3a 63 | 69 28 49 29 3d f4 1a 28 | .. 36:c|i(I)=..(|
|000013a0| 49 2a 31 30 2a 64 72 21 | 29 2a 74 74 3a 73 69 28 |I*10*dr!|)*tt:si(|
|000013b0| 49 29 3d f4 1b 28 49 2a | 31 30 2a 64 72 21 29 2a |I)=..(I*|10*dr!)*|
|000013c0| 74 74 3a f0 07 20 49 3a | 78 66 3d 30 3a 79 66 3d |tt:.. I:|xf=0:yf=|
|000013d0| 30 00 00 54 00 5e ff b0 | 00 00 66 24 3d f4 36 28 |0..T.^..|..f$=.6(|
|000013e0| 5f 66 4f 70 65 6e 2c 22 | 53 54 41 52 22 2c 2c 76 |_fOpen,"|STAR",,v|
|000013f0| 29 3a f0 21 20 22 49 22 | 2c 35 2c 66 24 2c 2c 76 |):.! "I"|,5,f$,,v|
|00001400| 3a 41 50 26 3d f4 01 28 | 78 28 30 29 29 3a f0 0b |:AP&=..(|x(0)):..|
|00001410| 20 20 f6 17 20 23 35 2c | 41 50 26 2c 41 53 5a 26 |  .. #5,|AP&,ASZ&|
|00001420| 3a f0 25 20 23 35 00 00 | 00 58 00 5f ff aa 00 00 |:.% #5..|.X._....|
|00001430| f0 2c 20 f8 5b 28 72 65 | 63 74 2c 30 2c 30 2c 78 |., .[(re|ct,0,0,x|
|00001440| 63 2a 32 2c 79 63 2a 32 | 29 3a f2 08 20 31 2c 22 |c*2,yc*2|):.. 1,"|
|00001450| 53 54 41 52 53 20 28 73 | 70 61 63 65 62 61 72 20 |STARS (s|pacebar |
|00001460| 74 6f 20 65 78 69 74 29 | 22 2c 28 30 2c 30 29 2d |to exit)|",(0,0)-|
|00001470| 28 78 63 2a 32 2c 79 63 | 2a 32 29 2c 40 72 65 63 |(xc*2,yc|*2),@rec|
|00001480| 74 00 00 5a 00 60 ff a6 | 00 00 f0 2c 20 f8 11 28 |t..Z.`..|..., ..(|
|00001490| 39 29 3a f0 2c 20 f8 13 | 28 33 29 3a f0 2c 20 f8 |9):., ..|(3):., .|
|000014a0| 12 28 32 29 3a f2 02 20 | 70 6c 61 6e 65 74 73 3a |.(2):.. |planets:|
|000014b0| 6c 31 21 3d f4 1d 28 78 | 63 2a 31 2e 30 2f 44 29 |l1!=..(x|c*1.0/D)|
|000014c0| 3a 6c 73 3d f4 1b 28 6c | 31 21 29 2a 74 74 3a 6c |:ls=..(l|1!)*tt:l|
|000014d0| 63 3d f4 1a 28 6c 31 21 | 29 2a 74 74 00 00 00 32 |c=..(l1!|)*tt...2|
|000014e0| 00 61 ff a4 00 00 f0 2c | 20 f8 b6 3a 74 6b 30 26 |.a.....,| ..:tk0&|
|000014f0| 3d 20 f2 02 20 fa 13 3a | 6d 33 3d 78 63 3a 6d 34 |= .. ..:|m3=xc:m4|
|00001500| 3d 79 63 3a f0 11 20 22 | 64 6f 6d 6f 75 73 65 22 |=yc:.. "|domouse"|
|00001510| 00 00 00 08 00 62 ff cc | 00 00 00 00 00 4a 00 63 |.....b..|.....J.c|
|00001520| ff f6 00 00 f0 13 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 6c 6f 67 69 63 |        |   logic|
|00001540| 20 66 6f 72 20 76 61 72 | 69 6f 75 73 20 6b 65 79 | for var|ious key|
|00001550| 20 61 6e 64 20 6d 6f 75 | 73 65 20 63 6f 6d 62 69 | and mou|se combi|
|00001560| 6e 61 74 69 6f 6e 73 00 | 00 4a 00 64 ff b4 00 02 |nations.|.J.d....|
|00001570| f0 33 3a f0 0f 20 f2 0b | 28 5f 64 6f 77 6e 29 20 |.3:.. ..|(_down) |
|00001580| f6 05 20 6d 33 3d f2 0b | 28 5f 68 6f 72 7a 29 3a |.. m3=..|(_horz):|
|00001590| 6d 34 3d f2 0b 28 5f 76 | 65 72 74 29 3a 6e 74 6b |m4=..(_v|ert):ntk|
|000015a0| 3d 6e 74 6b 2b 31 3a f0 | 11 20 22 64 6f 6d 6f 75 |=ntk+1:.|. "domou|
|000015b0| 73 65 22 00 00 6e 00 65 | ff b4 02 02 63 74 3d 5f |se"..n.e|....ct=_|
|000015c0| 74 72 75 65 3a 63 74 24 | 3d f4 2f 3a f0 0f 20 63 |true:ct$|=./:.. c|
|000015d0| 74 24 3c 3e 22 22 20 f6 | 05 20 63 74 3d 5f 66 61 |t$<>"" .|. ct=_fa|
|000015e0| 6c 73 65 3a f0 0f 20 f4 | 11 28 63 74 24 29 3c 3e |lse:.. .|.(ct$)<>|
|000015f0| 33 32 20 f6 05 20 f2 02 | 20 67 72 69 64 28 75 26 |32 .. ..| grid(u&|
|00001600| 2f 74 74 2c 76 26 2f 74 | 74 29 3a f0 11 20 22 64 |/tt,v&/t|t):.. "d|
|00001610| 6f 6d 32 22 20 3a f0 15 | 20 f0 0d 20 22 66 69 6e |om2" :..| .. "fin|
|00001620| 69 73 22 00 00 12 00 66 | ff 90 00 00 f0 34 20 66 |is"....f|.....4 f|
|00001630| 6f 72 65 76 65 72 00 00 | 00 08 00 67 ff ec 00 00 |orever..|...g....|
|00001640| 00 00 00 52 00 68 ff f6 | 00 00 f0 13 20 20 20 20 |...R.h..|....    |
|00001650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001660| 20 20 6d 6f 75 73 65 20 | 70 72 65 73 73 65 64 2d |  mouse |pressed-|
|00001670| 20 66 69 6e 64 20 6c 61 | 74 2c 6c 6f 6e 67 20 6f | find la|t,long o|
|00001680| 66 20 70 6f 69 6e 74 2c | 66 69 72 73 74 20 6f 62 |f point,|first ob|
|00001690| 6a 65 63 74 00 00 00 36 | 00 69 ff ac 00 00 22 64 |ject...6|.i...."d|
|000016a0| 6f 6d 6f 75 73 65 22 3a | f0 02 20 5f 5a 62 6c 61 |omouse":|.. _Zbla|
|000016b0| 63 6b 3a f0 2c 20 f9 5c | 28 72 65 63 74 2c 23 f2 |ck:., .\|(rect,#.|
|000016c0| 0f 28 61 35 29 2b 5f 62 | 6c 61 63 6b 29 00 00 3c |.(a5)+_b|lack)..<|
|000016d0| 00 6a ff c8 00 00 f2 02 | 20 69 6e 76 65 72 74 28 |.j......| invert(|
|000016e0| 78 63 2d 6d 33 2c 79 63 | 2d 6d 34 29 3a 75 26 3d |xc-m3,yc|-m4):u&=|
|000016f0| 73 79 2a 6c 63 2b 63 79 | 2a 6c 73 3a 76 26 3d 73 |sy*lc+cy|*ls:v&=s|
|00001700| 79 2a 6c 63 2d 63 79 2a | 6c 73 00 00 00 36 00 6b |y*lc-cy*|ls...6.k|
|00001710| ff c2 00 00 f0 0f 20 6c | 63 3e 63 79 20 f6 05 20 |...... l|c>cy .. |
|00001720| f0 0f 20 73 79 3e 30 20 | f6 05 20 75 26 3d 74 74 |.. sy>0 |.. u&=tt|
|00001730| 2a 74 74 20 3a f0 15 20 | 76 26 3d 20 2d 74 74 2a |*tt :.. |v&= -tt*|
|00001740| 74 74 00 00 00 32 00 6c | ff c8 00 00 69 30 3d f2 |tt...2.l|....i0=.|
|00001750| 02 20 42 69 6e 53 72 63 | 28 31 30 2c 6e 2c 75 26 |. BinSrc|(10,n,u&|
|00001760| 29 3a 69 31 3d f2 02 20 | 42 69 6e 53 72 63 28 31 |):i1=.. |BinSrc(1|
|00001770| 30 2c 6e 2c 76 26 29 00 | 00 08 00 6d ff cc 00 00 |0,n,v&).|...m....|
|00001780| 00 00 00 56 00 6e ff f6 | 00 00 f0 13 20 20 20 20 |...V.n..|....    |
|00001790| 20 63 68 65 63 6b 20 69 | 66 20 6f 62 6a 65 63 74 | check i|f object|
|000017a0| 20 69 73 20 6f 6e 20 74 | 68 69 73 20 73 69 64 65 | is on t|his side|
|000017b0| 20 6f 66 20 63 65 6c 65 | 73 74 69 61 6c 20 73 70 | of cele|stial sp|
|000017c0| 68 65 72 65 20 28 73 68 | 6f 77 20 70 6c 61 6e 65 |here (sh|ow plane|
|000017d0| 74 20 61 6e 79 77 61 79 | 29 00 00 36 00 6f ff a8 |t anyway|)..6.o..|
|000017e0| fe 02 22 64 6f 6d 32 22 | f0 01 20 4c 3d 30 20 f6 |.."dom2"|.. L=0 .|
|000017f0| 04 20 39 3a f0 11 20 22 | 73 74 61 72 22 3a f0 07 |. 9:.. "|star":..|
|00001800| 20 4c 3a f0 01 20 4c 3d | 69 30 20 f6 04 20 69 31 | L:.. L=|i0 .. i1|
|00001810| 00 00 00 3a 00 70 ff c8 | 02 02 f0 0f 20 79 28 4c |...:.p..|.... y(L|
|00001820| 29 2a 63 79 63 72 2d 78 | 28 4c 29 2a 63 79 73 72 |)*cycr-x|(L)*cysr|
|00001830| 2b 7a 28 4c 29 2a 73 79 | 2d 72 72 26 3e 3d 30 20 |+z(L)*sy|-rr&>=0 |
|00001840| f6 05 20 f0 11 20 22 73 | 74 61 72 73 22 00 00 0e |.. .. "s|tars"...|
|00001850| 00 71 ff c4 00 00 f0 07 | 20 4c 3a f0 12 00 00 08 |.q......| L:.....|
|00001860| 00 72 ff f0 00 00 00 00 | 00 5c 00 73 ff f6 00 00 |.r......|.\.s....|
|00001870| f0 13 20 20 20 20 20 20 | 20 20 20 67 65 74 20 6e |..      |   get n|
|00001880| 65 77 20 70 6f 73 69 74 | 69 6f 6e 20 6f 66 20 73 |ew posit|ion of s|
|00001890| 74 61 72 2c 20 64 69 70 | 6c 61 79 20 73 74 61 72 |tar, dip|lay star|
|000018a0| 20 77 69 74 68 20 72 61 | 6e 64 6f 6d 20 63 6f 6c | with ra|ndom col|
|000018b0| 6f 72 20 61 6e 64 20 65 | 6e 6c 61 72 67 65 64 20 |or and e|nlarged |
|000018c0| 73 69 7a 65 00 00 00 38 | 00 74 ff a2 00 00 22 73 |size...8|.t...."s|
|000018d0| 74 61 72 22 f0 0f 20 79 | 28 4c 29 2a 63 79 63 72 |tar".. y|(L)*cycr|
|000018e0| 2d 78 28 4c 29 2a 63 79 | 73 72 2b 7a 28 4c 29 2a |-x(L)*cy|sr+z(L)*|
|000018f0| 73 79 2d 72 72 26 3c 30 | 20 f6 05 20 f0 12 00 00 |sy-rr&<0| .. ....|
|00001900| 00 32 00 75 ff c6 00 00 | 22 73 74 61 72 73 22 64 |.2.u....|"stars"d|
|00001910| 79 70 26 3d 28 79 28 4c | 29 2a 63 79 63 72 2d 78 |yp&=(y(L|)*cycr-x|
|00001920| 28 4c 29 2a 63 79 73 72 | 2b 7a 28 4c 29 2a 73 79 |(L)*cysr|+z(L)*sy|
|00001930| 29 2f 44 00 00 4c 00 76 | ff cc 00 00 78 66 3d 28 |)/D..L.v|....xf=(|
|00001940| 78 28 4c 29 2a 63 72 2b | 79 28 4c 29 2a 73 72 29 |x(L)*cr+|y(L)*sr)|
|00001950| 2f 64 79 70 26 2b 78 63 | 3a 79 66 3d 79 63 2d 28 |/dyp&+xc|:yf=yc-(|
|00001960| 73 79 73 72 2a 78 28 4c | 29 2d 79 28 4c 29 2a 73 |sysr*x(L|)-y(L)*s|
|00001970| 79 63 72 2b 7a 28 4c 29 | 2a 63 79 29 2f 64 79 70 |ycr+z(L)|*cy)/dyp|
|00001980| 26 00 00 42 00 77 ff b2 | 00 02 f0 00 20 f0 0f 20 |&..B.w..|.... .. |
|00001990| 63 74 3a 62 3d 62 72 28 | 4c 29 2b 32 3a 63 28 30 |ct:b=br(|L)+2:c(0|
|000019a0| 29 3d 79 66 2d 62 3a 63 | 28 32 29 3d 79 66 2b 62 |)=yf-b:c|(2)=yf+b|
|000019b0| 3a 63 28 31 29 3d 78 66 | 2d 62 3a 63 28 33 29 3d |:c(1)=xf|-b:c(3)=|
|000019c0| 78 66 2b 62 00 00 00 14 | 00 78 ff bc 02 02 f0 02 |xf+b....|.x......|
|000019d0| 20 3d 20 28 4c 20 f6 0a | 20 37 29 00 00 16 00 79 | = (L ..| 7)....y|
|000019e0| ff ea 02 02 f0 2c 20 f8 | bf 28 f4 01 28 63 28 30 |....., .|.(..(c(0|
|000019f0| 29 29 29 00 00 28 00 7a | ff e8 00 02 f0 05 20 3a |)))..(.z|...... :|
|00001a00| f0 2c 20 f8 d0 28 78 66 | 2b 33 2c 79 66 29 3a f0 |., ..(xf|+3,yf):.|
|00001a10| 2c 20 f9 73 28 6e 61 6d | 24 28 4c 29 29 00 00 10 |, .s(nam|$(L))...|
|00001a20| 00 7b ff d6 00 00 f0 1f | 20 f0 0f 3a f0 12 00 00 |.{......| ..:....|
|00001a30| 00 08 00 7c ff ee 00 00 | 00 00 00 58 00 7d ff f6 |...|....|...X.}..|
|00001a40| 00 00 f0 13 20 20 20 20 | 20 20 20 20 20 75 73 65 |....    |     use|
|00001a50| 72 20 70 72 65 73 73 65 | 64 20 73 70 61 63 65 20 |r presse|d space |
|00001a60| 62 61 72 20 20 20 2d 20 | 63 61 6c 63 75 6c 61 74 |bar   - |calculat|
|00001a70| 65 20 73 70 65 65 64 20 | 20 28 75 6e 63 6f 6d 6d |e speed | (uncomm|
|00001a80| 65 6e 74 20 74 6f 20 73 | 68 6f 77 20 73 70 65 65 |ent to s|how spee|
|00001a90| 64 20 29 00 00 3c 00 7e | ff a6 00 00 22 66 69 6e |d )..<.~|...."fin|
|00001aa0| 69 73 22 3a f0 04 3a 66 | 30 21 3d 28 28 f2 02 20 |is":..:f|0!=((.. |
|00001ab0| fa 13 29 2d 20 54 4b 30 | 26 29 2f 6e 74 6b f0 5a |..)- TK0|&)/ntk.Z|
|00001ac0| 3a 50 52 49 4e 54 20 40 | 28 31 2c 31 29 20 66 30 |:PRINT @|(1,1) f0|
|00001ad0| 21 00 00 0a 00 7f ff c2 | 00 00 f0 1f 00 00 00 7e |!.......|.......~|
|00001ae0| 00 80 ff f4 00 00 f0 08 | 20 20 22 53 55 4e 22 20 |........|  "SUN" |
|00001af0| 2c 20 31 2e 30 20 20 20 | 20 20 20 20 2c 20 20 20 |, 1.0   |    ,   |
|00001b00| 2e 30 31 36 37 2c 20 20 | 20 20 20 20 20 20 20 20 |.0167,  |        |
|00001b10| 20 20 20 20 20 30 2c 20 | 20 20 20 20 20 20 20 20 |     0, |        |
|00001b20| 20 20 30 2c 20 20 20 20 | 20 20 20 20 20 20 20 20 |  0,    |        |
|00001b30| 20 30 2c 20 20 20 20 20 | 20 31 2e 37 39 35 2c 20 | 0,     | 1.795, |
|00001b40| 20 20 20 2e 30 33 30 20 | 20 20 2c 20 20 20 20 35 |   .030 |  ,    5|
|00001b50| 2e 34 30 33 38 32 2c 36 | 32 38 2e 33 00 00 00 72 |.40382,6|28.3...r|
|00001b60| 00 81 ff 80 00 00 f0 08 | 20 20 22 4d 45 52 43 55 |........|  "MERCU|
|00001b70| 52 59 22 2c 20 20 2e 33 | 38 37 31 20 20 20 20 20 |RY",  .3|871     |
|00001b80| 20 2c 20 2e 32 30 35 36 | 2c 20 20 20 20 20 20 20 | , .2056|,       |
|00001b90| 2e 31 32 32 33 2c 20 20 | 20 20 20 20 20 2e 38 34 |.1223,  |     .84|
|00001ba0| 32 32 2c 20 20 20 20 20 | 20 20 2e 30 32 31 2c 20 |22,     |  .021, |
|00001bb0| 20 31 2e 33 35 30 31 32 | 2c 20 20 20 2e 30 30 36 | 1.35012|,   .006|
|00001bc0| 20 20 2c 20 2e 33 30 38 | 34 35 2c 32 36 31 30 2e |  , .308|45,2610.|
|00001bd0| 00 00 00 72 00 82 ff 8c | 00 00 f0 08 20 20 22 56 |...r....|....  "V|
|00001be0| 45 4e 55 53 22 20 2c 20 | 20 2e 37 32 33 33 20 20 |ENUS" , | .7233  |
|00001bf0| 20 20 2c 20 20 20 2e 30 | 30 36 37 37 35 2c 20 20 |  ,   .0|06775,  |
|00001c00| 20 20 20 20 2e 30 35 39 | 32 34 2c 20 20 20 31 2e |    .059|24,   1.|
|00001c10| 33 33 37 33 2c 20 20 20 | 20 2e 30 31 36 2c 20 20 |3373,   | .016,  |
|00001c20| 20 20 32 2e 32 39 34 36 | 35 2c 20 20 20 20 20 2e |  2.2946|5,     .|
|00001c30| 30 30 39 20 20 20 2c 2e | 34 34 38 34 36 37 2c 31 |009   ,.|448467,1|
|00001c40| 30 32 32 2e 00 00 00 72 | 00 83 ff 8c 00 00 f0 08 |022....r|........|
|00001c50| 20 20 20 22 4d 41 52 53 | 22 2c 20 31 2e 35 32 33 |   "MARS|", 1.523|
|00001c60| 37 20 20 2c 20 20 2e 30 | 39 33 33 39 35 2c 20 20 |7  ,  .0|93395,  |
|00001c70| 20 20 20 20 20 20 2e 30 | 33 32 33 33 2c 20 20 20 |      .0|3233,   |
|00001c80| 20 20 20 2e 38 36 34 32 | 36 2c 20 20 20 20 20 2e |   .8642|6,     .|
|00001c90| 30 31 33 2c 20 20 20 20 | 35 2e 38 36 33 33 2c 20 |013,    |5.8633, |
|00001ca0| 20 20 2e 30 31 39 20 20 | 20 20 2c 20 33 2e 36 30 |  .019  |  , 3.60|
|00001cb0| 38 34 34 2c 33 33 34 2e | 31 00 00 6e 00 84 ff 8c |844,334.|1..n....|
|00001cc0| 00 00 f0 08 20 20 20 22 | 4a 55 50 49 54 45 52 22 |....   "|JUPITER"|
|00001cd0| 2c 20 20 35 2e 32 30 32 | 38 20 20 2c 20 20 2e 30 |,  5.202|8  ,  .0|
|00001ce0| 34 38 34 38 34 2c 20 20 | 20 20 2e 30 32 32 38 33 |48484,  |  .02283|
|00001cf0| 2c 20 20 20 31 2e 37 35 | 32 32 39 2c 20 20 20 2e |,   1.75|229,   .|
|00001d00| 30 31 37 2c 20 20 20 20 | 20 2e 32 34 38 33 32 2c |017,    | .24832,|
|00001d10| 20 20 20 2e 30 31 30 20 | 20 20 20 20 2c 33 2e 34 |   .010 |    ,3.4|
|00001d20| 38 31 31 34 2c 35 33 2e | 30 00 00 6e 00 85 ff 90 |8114,53.|0..n....|
|00001d30| 00 00 f0 08 20 20 20 22 | 53 41 54 55 52 4e 22 20 |....   "|SATURN" |
|00001d40| 2c 20 39 2e 35 35 35 20 | 20 20 2c 20 20 2e 30 35 |, 9.555 |  ,  .05|
|00001d50| 35 35 33 31 2c 20 20 20 | 20 2e 30 34 33 34 32 35 |5531,   | .043425|
|00001d60| 2c 20 20 20 20 31 2e 39 | 38 32 38 35 2c 20 20 2e |,    1.9|8285,  .|
|00001d70| 30 31 36 2c 20 20 20 20 | 20 31 2e 36 32 31 39 35 |016,    | 1.62195|
|00001d80| 2c 20 20 20 2e 30 31 39 | 20 20 20 2c 35 2e 37 38 |,   .019|   ,5.78|
|00001d90| 36 34 39 2c 32 31 2e 31 | 39 00 00 6a 00 86 ff 90 |649,21.1|9..j....|
|00001da0| 00 00 f0 08 20 20 20 22 | 55 52 41 4e 55 53 22 20 |....   "|URANUS" |
|00001db0| 2c 20 31 39 2e 32 31 38 | 34 20 2c 20 2e 30 34 36 |, 19.218|4 , .046|
|00001dc0| 32 39 38 2c 20 20 20 20 | 2e 30 31 34 30 38 39 2c |298,    |.014089,|
|00001dd0| 20 20 20 31 2e 32 39 30 | 34 2c 20 20 20 2e 30 30 |   1.290|4,   .00|
|00001de0| 39 2c 20 20 20 20 33 2e | 30 31 37 38 2c 20 20 20 |9,    3.|0178,   |
|00001df0| 20 2e 30 32 31 20 20 20 | 20 20 2c 34 2e 39 39 39 | .021   |  ,4.999|
|00001e00| 37 2c 37 2e 35 00 00 6a | 00 87 ff 94 00 00 f0 08 |7,7.5..j|........|
|00001e10| 20 20 22 4e 45 50 54 55 | 4e 45 22 20 2c 20 20 33 |  "NEPTU|NE" ,  3|
|00001e20| 30 2e 31 31 30 34 20 2c | 20 2e 30 30 38 39 38 38 |0.1104 ,| .008988|
|00001e30| 2c 20 20 20 20 2e 30 33 | 30 39 36 35 2c 20 20 20 |,    .03|0965,   |
|00001e40| 20 32 2e 32 39 38 38 2c | 20 20 20 2e 30 31 39 2c | 2.2988,|   .019,|
|00001e50| 20 20 2e 38 33 38 33 32 | 2c 20 20 20 2d 2e 30 30 |  .83832|,   -.00|
|00001e60| 37 20 20 20 2c 35 2e 30 | 36 35 35 35 2c 33 2e 37 |7   ,5.0|6555,3.7|
|00001e70| 39 00 00 6e 00 88 ff 94 | 00 00 f0 08 20 20 22 50 |9..n....|....  "P|
|00001e80| 4c 55 54 4f 22 2c 20 20 | 20 33 39 2e 34 36 39 38 |LUTO",  | 39.4698|
|00001e90| 20 2c 20 2e 32 34 38 36 | 34 36 2c 20 20 20 20 20 | , .2486|46,     |
|00001ea0| 2e 32 39 39 33 38 35 2c | 20 20 20 20 20 20 31 2e |.299385,|      1.|
|00001eb0| 39 32 31 35 35 2c 20 20 | 2e 30 32 35 2c 20 20 20 |92155,  |.025,   |
|00001ec0| 20 20 33 2e 39 30 32 35 | 32 2c 20 20 20 20 20 20 |  3.9025|2,      |
|00001ed0| 20 20 20 20 2c 34 2e 32 | 36 38 33 35 2c 32 2e 35 |    ,4.2|6835,2.5|
|00001ee0| 34 00 00 08 00 89 ff 90 | 00 00 00 00 00 08 00 8a |4.......|........|
|00001ef0| ff f6 00 00 00 00 00 08 | 00 8b ff f6 00 00 00 00 |........|........|
|00001f00| 00 0a ff ff ff f6 ff c6 | f0 12 00 00             |........|....    |
+--------+-------------------------+-------------------------+--------+--------+